﻿Public Class ven_config_cargas_dvol

   
    
    Private Sub eng_rec1_Click(sender As Object, e As EventArgs) Handles eng_rec1.Click
        ven_eng_rec1.Show()

    End Sub

    Private Sub eng_hel1_Click(sender As Object, e As EventArgs) Handles eng_hel1.Click
        ven_eng_hel1.Show()

    End Sub

    Private Sub pol1_Click(sender As Object, e As EventArgs) Handles pol1.Click
        ven_pol1.Show()

    End Sub

    Private Sub car_gen1_Click(sender As Object, e As EventArgs) Handles car_gen1.Click
        ven_car_gen1.Show()

    End Sub

    Private Sub ninguno1_Click(sender As Object, e As EventArgs) Handles ninguno1.Click
        yc1 = 0
        c1x = 0
        c1y = 0
        c1z = 0
        m1x = 0
        m1y = 0
        m1z = 0
    End Sub

    Private Sub eng_rec2_Click(sender As Object, e As EventArgs) Handles eng_rec2.Click
        ven_eng_rec2.Show()

    End Sub

    Private Sub eng_hel2_Click(sender As Object, e As EventArgs) Handles eng_hel2.Click
        ven_eng_hel2.Show()

    End Sub

    Private Sub pol2_Click(sender As Object, e As EventArgs) Handles pol2.Click
        ven_pol2.Show()

    End Sub

    Private Sub car_gen2_Click(sender As Object, e As EventArgs) Handles car_gen2.Click
        ven_car_gen2.Show()

    End Sub

    Private Sub ninguno2_Click(sender As Object, e As EventArgs) Handles ninguno2.Click
        yc2 = 0
        c2x = 0
        c2y = 0
        c2z = 0
        m2x = 0
        m2y = 0
        m2z = 0
    End Sub

    Private Sub eng_rec3_Click(sender As Object, e As EventArgs) Handles eng_rec3.Click
        ven_eng_rec3.Show()

    End Sub

    Private Sub eng_hel3_Click(sender As Object, e As EventArgs) Handles eng_hel3.Click
        ven_eng_hel3.Show()

    End Sub

    Private Sub pol3_Click(sender As Object, e As EventArgs) Handles pol3.Click
        ven_pol3.Show()

    End Sub

    Private Sub car_gen3_Click(sender As Object, e As EventArgs) Handles car_gen3.Click
        ven_car_gen3.Show()


    End Sub

    Private Sub ninguno3_Click(sender As Object, e As EventArgs) Handles ninguno3.Click
        yc3 = 0
        c3x = 0
        c3y = 0
        c3z = 0
        m3x = 0
        m3y = 0
        m3z = 0
    End Sub

    Private Sub eng_rec4_Click(sender As Object, e As EventArgs) Handles eng_rec4.Click
        ven_eng_rec4.Show()

    End Sub

    Private Sub eng_hel4_Click(sender As Object, e As EventArgs) Handles eng_hel4.Click
        ven_eng_hel4.Show()

    End Sub

    Private Sub pol4_Click(sender As Object, e As EventArgs) Handles pol4.Click
        ven_pol4.Show()

    End Sub

    Private Sub car_gen4_Click(sender As Object, e As EventArgs) Handles car_gen4.Click
        ven_car_gen4.Show()

    End Sub

    Private Sub ninguno4_Click(sender As Object, e As EventArgs) Handles ninguno4.Click
        yc4 = 0
        c4x = 0
        c4y = 0
        c4z = 0
        m4x = 0
        m4y = 0
        m4z = 0
    End Sub

    Private Sub eng_rec5_Click(sender As Object, e As EventArgs) Handles eng_rec5.Click
        ven_eng_rec5.Show()

    End Sub

    Private Sub eng_hel5_Click(sender As Object, e As EventArgs) Handles eng_hel5.Click
        ven_eng_hel5.Show()

    End Sub

    Private Sub pol5_Click(sender As Object, e As EventArgs) Handles pol5.Click
        ven_pol5.Show()

    End Sub

    Private Sub car_gen5_Click(sender As Object, e As EventArgs) Handles car_gen5.Click
        ven_car_gen5.Show()

    End Sub

    Private Sub ninguno5_Click(sender As Object, e As EventArgs) Handles ninguno5.Click
        yc5 = 0
        c5x = 0
        c5y = 0
        c5z = 0
        m5x = 0
        m5y = 0
        m5z = 0
    End Sub

    Private Sub eng_rec6_Click(sender As Object, e As EventArgs) Handles eng_rec6.Click
        ven_eng_rec6.Show()
    End Sub

    Private Sub eng_hel6_Click(sender As Object, e As EventArgs) Handles eng_hel6.Click
        ven_eng_hel6.Show()
    End Sub

    Private Sub pol6_Click(sender As Object, e As EventArgs) Handles pol6.Click
        ven_pol6.Show()
    End Sub

    Private Sub car_gen6_Click(sender As Object, e As EventArgs) Handles car_gen6.Click
        ven_car_gen6.Show()

    End Sub

    Private Sub ninguno6_Click(sender As Object, e As EventArgs) Handles ninguno6.Click
        yc6 = 0
        c6x = 0
        c6y = 0
        c6z = 0
        m6x = 0
        m6y = 0
        m6z = 0
    End Sub

    Private Sub btn_calcular_reaccionesdvol_Click(sender As Object, e As EventArgs) Handles btn_calcular_reaccionesdvol.Click
        yr1 = Convert.ToSingle(txtyr1.Text)
        yr2 = Convert.ToSingle(txtyr2.Text)
        yt = Convert.ToSingle(txtyt.Text)

        r2x = (yr1 * (c1x + c2x + c3x + c4x + c5x + c6x) - (c1x * yc1 + c2x * yc2 + c3x * yc3 + c4x * yc4 + c5x * yc5 + c6x * yc6) + (m1z + m2z + m3z + m4z + m5z + m6z)) / (yr2 - yr1)
        r1x = -(r2x + (c1x + c2x + c3x + c4x + c5x + c6x))
        r2y = -(c1y + c2y + c3y + c4y + c5y + c6y)
        r1y = 0
        r2z = (yr1 * (c1z + c2z + c3z + c4z + c5z + c6z) - (c1z * yc1 + c2z * yc2 + c3z * yc3 + c4z * yc4 + c5z * yc5 + c6z * yc6) - (m1x + m2x + m3x + m4x + m5x + m6x)) / (yr2 - yr1)
        r1z = -(r2z + (c1z + c2z + c3z + c4z + c5z + c6z))
    End Sub

    Private Sub btnsgtvd_ven_reacciones_Click(sender As Object, e As EventArgs) Handles btnsgtvd_ven_reacciones.Click
        Me.Hide()
        ven_reacciones.Show()

    End Sub

    Private Sub btn_helpconfigcargasdv_Click(sender As Object, e As EventArgs) Handles btn_helpconfigcargasdv.Click
        ven_helpconfigcargasdv.Show()
    End Sub
End Class